Sample Code - PrintOut Method

This sample code shows the use of the PrintOut Method (Report Object). Modify the following sample code to fit your needs.

    Dim crystalreport As CRPEAuto.Report
Dim repView As CRPEAuto.View
Dim test As Integer
Dim crwApplication As CRPEAuto.Application

Private Sub Command1_Click()

'prints view
Set crwApplication = CreateObject("Crystal.CRPE.Application")
Set crystalreport = crwApplication.OpenReport _
    ("c:\crw\reports\xtreme\wwsales.rpt")
crystalreport.PrintWindowOptions.CanDrillDown = True
Set repView = crystalreport.Preview
'print view
repView.PrintOut
End Sub


Seagate Software IMG Holdings, Inc.
http://www.seagatesoftware.com
Support services:
http://support.seagatesoftware.com